NOTE: county_forecast is available via my codemog R package here: https://github.com/robkemp/codemog/
denver_7county=c(1,5,13,14,31,35,59)
p=county_forecast%>%
filter(countyfips%in%denver_7county, age<90)%>%
ggplot(aes(x=age, y=totalPopulation))+
geom_point(aes(frame=year), color=rgb(31,74,126,max=255))+
facet_wrap(~county, scales = "free")+
theme_codemog()+
labs(x="Age", y="Total Population", title="Population Year: ")
ani.options(interval = .1)
gg_animate(p)